home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / DIAL.SCP < prev    next >
Text File  |  1990-06-01  |  927b  |  37 lines
  1. { This SCRIPT procedure allows you to specify up to 9 recid's  }
  2. { to be dialed.  Each number will be called successively until }
  3. { a successful connection has been made.  Then, the bell will  }
  4. { be rung and you will be placed in normal connect status.     }
  5.  
  6. @bell = 0
  7. if (@1 = "") exit "Usage: dial recid1 [recid2 ... recid9]";
  8. @a = 1;
  9. :mainloop
  10.     @f = ""
  11.     if (@a = 1) @f = @1
  12.     if (@a = 2) @f = @2
  13.     if (@a = 3) @f = @3
  14.     if (@a = 4) @f = @4
  15.     if (@a = 5) @f = @5
  16.     if (@a = 6) @f = @6
  17.     if (@a = 7) @f = @7
  18.     if (@a = 8) @f = @8
  19.     if (@a = 9) @f = @9
  20.     if (@f = "") @a = 1; goto :mainloop
  21. @a = expr(@a+1);
  22. select(@f);
  23. docomm;
  24. { Wait for 30 seconds for a connection }
  25. @i = 1
  26. :subloop
  27.     if (@i > 30 ) goto :mainloop
  28.     @i = expr(@i+2)
  29.     twait(1,"sec");  {2 sec}
  30.     if (@Conn=2) goto :mainloop {number is busy}
  31.     if (@Conn=1) goto :didit    {connected}
  32.     goto :subloop
  33. :didit
  34.     @bell = 3;
  35.     bell;
  36.     @bell = 1;
  37.